home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
2614.ZIP
/
DISPLA.ZIP
/
TEST_50.PRG
< prev
next >
Wrap
Text File
|
1990-12-02
|
1KB
|
41 lines
@ 0,0 CLEAR
cInFile := "display.doc " // filename must have extension
cKey := "" // key pressed when dispfile() exits
nNColor := 7 // foreground color
nHColor := 15 // background color
nColSkip := 5 // how many columns to move for left/right arrow
nRMargin := 132 // max line size
cExitKeys := "AaBbC " // keys that can terminate routine
lBrowse := .f.
nStart := 1
nBuffSize := 4096
@ 0,0 SAY "Enter filename: " GET cInFile
@ 1,0 SAY " Foreground: " GET nNColor PICTURE "999"
@ 2,0 SAY " Highlight: " GET nHColor PICTURE "999"
@ 3,0 SAY " Exit keys: " GET cExitKeys
@ 4,0 SAY " Buffer Size: " GET nBuffSize PICTURE "9999"
@ 1,40 SAY "column increment: " GET nColSkip PICTURE "999"
@ 2,40 SAY " max line size: " GET nRMargin PICTURE "999"
@ 3,40 SAY " browse mode? " GET lBrowse PICTURE "Y"
READ
*
* remember a window will be one size less and greater than the passed coord.'s
*
* the 9th parameter contains the keys that the routine will terminate on
* and the CHR(143) represents the F3 key.
*
@ 4,9 TO 11,71
cKey = DispFile(cInFile, 5, 10, 10, 70, nStart,;
nNColor, nHColor, cExitKeys + CHR(143),;
lBrowse, nColSkip, nRMargin, nBuffSize)
@ 20,0 SAY "Key pressed was: " + '[' + cKey + ']'
QUIT